home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_2 / ftransd_2.1a / arexx-scripts / fttogglev.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-15  |  843b  |  43 lines
  1. /*  $VER: FTToggleV.rexx 1.1 (Jun  5 1995)
  2.  *
  3.  *  Arexx-Script für FTrans Arexx-Interface (c) Copyright 1995
  4.  *  by Rainer Hess
  5.  *
  6.  *  V1.0 - inital release.
  7.  *  V1.1 - ARexx-Port-Name für FTrans V1.7 geändert.
  8.  */
  9.  
  10. options results
  11.  
  12. /*
  13.  * rexxsupport.library einbinden.
  14.  */
  15.  
  16. if ~show('l',"rexxsupport.library") then do
  17.    call addlib 'rexxsupport.library',0,-30,0
  18.    if (result = 0) then do
  19.      say "Die rexxsupport.library kann nicht eingebunden werden!"
  20.      say "Evtl. ist die rexxsupport.library nicht installiert..."
  21.      exit
  22.    end
  23. end
  24.  
  25. /*
  26.  * Läuft unser Ftrans mit ARexx-Port "FTRANS.1"?
  27.  */
  28.  
  29. ok = show("P","FTRANS.1")
  30. if ok = 0 then do
  31.    say 'Entschuldigung, das Programm FTrans mit Arexx-Port FTRANS.1 läuft nicht!'
  32.    exit 0
  33. end
  34.  
  35. /*
  36.  * Arexx-Port aktivieren.
  37.  */
  38.  
  39. address 'FTRANS.1'
  40.  
  41. VORSCHLAG TOGGLE
  42. say 'Vorschläge sind' result
  43.